home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / self / contrib.lha / contrib / 491 / aa / oldtest2.self < prev    next >
Encoding:
Text File  |  1993-05-23  |  659 b   |  45 lines
  1. " boite test cases "
  2. "
  3. *
  4. * These tests should determine if the boite system is working correctly.
  5. *
  6. * oldtest2.self,v 1.1 1993/05/23 23:16:47 richards Exp
  7. *
  8. * oldtest2.self,v
  9. # Revision 1.1  1993/05/23  23:16:47  richards
  10. # Initial revision
  11. #
  12. # Revision 1.1  1992/08/19  02:03:46  richards
  13. # Initial revision
  14. *
  15. *
  16. *
  17. "
  18.  
  19. _AddSlotsIfAbsent: (| foo. bar. baz. hunk. junk. |)
  20.  
  21. foo: boites vboite copy
  22. bar: boites htext make: 'Hello'
  23. bar setMinSizes
  24. bar _Print
  25. foo addEnd: bar 
  26. foo addEnd: ((boites htext make: 'There') setMinSizes)
  27. foo fixUpSizes
  28.  
  29. ' Test set #2 tests. ' printLine
  30.  
  31. 'tests' load
  32. baz: hunk makeBoite
  33. baz _Print
  34. baz contents _Print
  35. baz print
  36.  
  37.  
  38.  
  39.  
  40.  
  41.  
  42.  
  43.  
  44.  
  45.